open FILE, "<:utf8", "C:\\Documents and Settings\\R19338\\Desktop\\Melijoe_FR_Netaffiliation-2012_10_15_00_02.csv";
open WFILE, ">:utf8", "C:\\Documents and Settings\\R19338\\Desktop\\1.txt";

my $file_contents = '';

while (<FILE>) {
		$file_contents .= $_;
}
while ($file_contents =~ /<sku>(.*?)<\/sku>/ig) {
		print WFILE $2."\n";
	}
